home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / WIN_PRO / BARVBX.ZIP;1 / SAMPLE.ZIP / MODULE1.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-11-01  |  1.1 KB  |  27 lines
  1. Type DOCINFO
  2.    cbSize As Integer
  3.    DocName As Long
  4.    Output As Long
  5. End Type
  6.  
  7. Global Const GMEM_MOVEABLE = &H2
  8. Global Const GMEM_ZEROINIT = &H40
  9. Global Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
  10.  
  11. Global Const PD_RETURNDC = &H100&
  12. Global Const PD_PRINTSETUP = &H40&
  13.  
  14. Declare Function StartDoc Lib "GDI" (ByVal hDC As Integer, lpdi As DOCINFO) As Integer
  15. Declare Function EndPage Lib "GDI" (ByVal hDC As Integer) As Integer
  16. Declare Function EndDocAPI Lib "GDI" Alias "EndDoc" (ByVal hDC As Integer) As Integer
  17. Declare Function StartPage Lib "GDI" (ByVal hDC As Integer) As Integer
  18. Declare Function TextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer
  19. Declare Function GlobalAlloc Lib "Kernel" (ByVal wFlags As Integer, ByVal dwBytes As Long) As Integer
  20. Declare Function GlobalLock Lib "Kernel" (ByVal hMem As Integer) As Long
  21. Declare Function DeleteDC Lib "GDI" (ByVal hDC As Integer) As Integer
  22. Declare Sub hmemcpy Lib "Kernel" (lpDest As Any, lpSource As Any, ByVal dwBytes As Long)
  23.  
  24.  
  25.  
  26.  
  27.